home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed45.d64 / exercise 1 (.txt) next >
Commodore BASIC  |  2007-02-04  |  6KB  |  160 lines
  1. 100 PRINT"[147]";:POKE53272,23:POKE53280,0:POKE53281,0
  2. 101 PRINT"[156]           [215][200][195] [197]NTERPRISES":GOSUB591
  3. 102 PRINT"[159]                                        [146]";
  4. 103 PRINT"                                        [146]";
  5. 104 PRINT"                                        [146]";
  6. 105 PRINT"        [205]C[196]ONALD [215]ORKBOOK [211]ERIES        [146]";
  7. 106 PRINT"[159]                                        [146]";
  8. 107 PRINT"         [214]OCABULARY [197]XERCISE #1         [146]";
  9. 108 PRINT"[159]                                        [146]";
  10. 109 PRINT"               SYNONYMS                 [146]";
  11. 110 PRINT"[159]                                        [146]":GOSUB591:GOSUB560
  12. 111 PRINT"          [201]NSTRUCTIONS?  [217]/[206]
  13. 112 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]112
  14. 113 [139]R$[178]"Y"[167][141]400
  15. 120 [153]"OPENLOAD (null)HAT IS YOUR FIRST NAME?   "
  16. 122 [133] N$
  17. 124 [139]N$[178]""[167]122
  18. 126 [141]590
  19. 190 [153]"OPENLOAD ATNND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
  20. 192 [137]1000
  21. 235 [141]591:[141]560
  22. 236 [153]"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
  23. 237 [161]U$:[139]U$[179][177][199](32)[167]237
  24. 238 [142]
  25. 240 [141]592:[141]560
  26. 242 [153]"CONT      >>> (null)(null)ATNLENVALCLOSEPEEKATN(null) <<<  "
  27. 244 [161]U$:[139]U$[179][177][199](32)[167]244
  28. 246 [153]"ON                                       "
  29. 248 [142]
  30. 299 :
  31. 400 [153]"LOAD              RIGHT$NSTRUCTIONS            OPEN
  32. 402 PRINT" [212]HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
  33. 404 PRINT" [198]OUR WORDS WILL BE SHOWN.
  34. 406 [153]" (null)OUR TASK IS TO SELECT THE TWO WORDS
  35. 408 PRINT" THAT HAVE ALMOST THE SAME               MEANING
  36. 410 [153]" (null)UCH WORDS ARE CALLED SYSSYNONYMSOPEN.
  37. 412 PRINT" (PRONOUNCED SIN-ON-IMS[159])
  38. 414 [153]" ATNFTER YOU TYPE IN THE WORDS, PRESS       RETURN WAIT":[141]235
  39. 416 [153]"LOADOPEN (null)OW, LET'S LOOK AT AN EXAMPLE.":[141]240
  40. 418 [153]"LOAD                VALXAMPLE WAITOPEN
  41. 420 PRINT"               1.  TIE
  42. 422 [153]"               2.  BLOW
  43. 424 PRINT"               3.  FLOW
  44. 426 [153]"               4.  BIND
  45. 428 PRINT"[153]   [215]HICH TWO WORDS HAVE ALMOST THE
  46. 430 [153]"   SAME MEANING.":[141]240
  47. 432 [153]"OPEN   (null)OU WOULD HAVE SELECTED...."
  48. 434 [153]"            SYSTIEOPEN AND SYSBINDOPEN"
  49. 436 [141]235:[142]
  50. 499 :
  51. 500 [143] <YES>
  52. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  53. 510 [151]54296,15:[151]54277,42:[151]54278,250
  54. 515 [151]54276,23:[151]54273,23:[151]54272,191
  55. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  56. 525 [151]54296,0:[142]
  57. 530 [143] <NO>
  58. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  59. 540 [151]54296,15:[151]54277,18:[151]54278,242
  60. 545 [151]54276,33:[151]54273,4:[151]54272,48
  61. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  62. 555 [151]54296,0:[142]
  63. 560 [143] <BLIP>
  64. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  65. 570 [151]54296,7:[151]54277,42:[151]54278,250
  66. 575 [151]54276,23:[151]54273,23:[151]54272,191
  67. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  68. 585 [151]54296,0:[142]
  69. 590 [129]TM[178]1[164]500:[130]:[142]
  70. 591 [129]TM[178]1[164]1000:[130]:[142]
  71. 592 [129]TM[178]1[164]2000:[130]:[142]
  72. 593 [129]TM[178]1[164]3000:[130]:[142]
  73. 999 :
  74. 1000 [153]"LOAD";:[140]:[151]53281,0:[151]53280,0
  75. 1010 P[178]1:C[178]20:H[178]0
  76. 1015 [129]J[178]1[164]C
  77. 1020 [135]A$,B$,C$,D$,E$,F$
  78. 1025 [153]"PRINT#LOAD VALXERCISE 1 CLR"[163]14)""N$[163]30)"LIST(null)TEP:";P
  79. 1030 [153]"SYS ";A$;B$;C$;D$
  80. 1031 [153]" (null)WO OF THESE WORDS HAVE ALMOST THE      SAME MEANING?"
  81. 1032 [153]"PRINT (null)HICH IS THE FIRST WORD?OPEN"
  82. 1033 [153]" LIST(TYPE THE WORDS IN ALPHABETICAL ORDER)OPEN"
  83. 1040 [141]560:[133]"SYS >>> 1 ";SK$
  84. 1041 [139]SK$[178]E$[167][141]1080:[137]1050
  85. 1042 [139]Z[178]1 [167][153]"DEFON (null)HE FIRST WORD IS...SYS"E$
  86. 1043 [139]Z[178]1[167][141]530:[141]592:H[178]H[170]1:[137]1050
  87. 1044 Z[178]Z[170]1
  88. 1045 [153]"DEF (null)OUR ANSWER IS NOT CORRECT. TRY AGAIN.":H[178]H[170]1:[141]530:[141]591
  89. 1046 [153]"ON                                        "
  90. 1047 [153]"ONONON                                      "
  91. 1048 [141]590:[137]1040
  92. 1050 [153]"PRINTPRINT (null)HICH IS THE SECOND WORD?OPEN":Z[178]0
  93. 1051 [141]560:[133]"SYS >>> 2 ";SK$
  94. 1052 [139]SK$[178]F$[167] [137] 1085
  95. 1053 [139]Z[178]1 [167][153]"DEFON (null)HE SECOND WORD IS...SYS"F$
  96. 1054 [139]Z[178]1[167][141]530:[141]591:H[178]H[170]1:[137]1090
  97. 1055 Z[178]Z[170]1
  98. 1056 [153]"DEF (null)OUR ANSWER IS NOT CORRECT. TRY AGAIN.":H[178]H[170]1:[141]530:[141]591
  99. 1057 [153]"ON                                        "
  100. 1058 [153]"ONONON                                      ":[141]590:[137]1051
  101. 1060 [153]"DEF (null)OUR ANSWER IS NOT CORRECT. TRY AGAIN.":H[178]H[170]1:[141]530:[141]591
  102. 1065 [153]"ON                                        "
  103. 1075 [137]1051
  104. 1080 [153]""[166]24)"SYSLEN(null)(null)(null)VALLEN(null)!":[141]500:[141]591
  105. 1082 [153]"ON                 ":[142]
  106. 1085 [153]""[166]24)"SYSLEN(null)(null)(null)VALLEN(null)!":[141]500:[141]591
  107. 1087 [153]"ON                 "
  108. 1090 [141]591:[153]"LOAD":Z[178]0:P[178]P[170]1:[141]591:[130]J
  109. 1095 [153]"":[141]240
  110. 1099 :
  111. 1999 :
  112. 2000 [153]"LOAD(null)OU HAVE NOW FINISHED VALXERCISE 1.":[141]591:[141]560
  113. 2005 [153]"(null)OU HAVE ANSWERED"C"QUESTIONS."
  114. 2010 [139]H[178]1[167][153]"DEF(null)OU MADE ONLY ONE BLOOPER.
  115. 2015 IFH>1THENPRINT"[150][217]OU MADE"H"BLOOPERS."
  116. 2020 IFH=0THENPRINT"[158]                EXCELLENT!              [146]":GOTO2035
  117. 2025 IFH=1THENPRINT"[159]              GOOD WORK!                [146]":GOTO2035
  118. 2030 PRINT"[150]       TRY HARDER!  DO IT AGAIN!        [146]"
  119. 2035 PRINT"":GOSUB235
  120. 2050 PRINT"[153][147]YOU HAVE A CHOICE:
  121. 2052 [153]"(null)RESS (null) R WAIT TO REPEAT VALXERCISE 1
  122. 2054 PRINT"[208]RESS  [199] [146] TO GO TO [197]XERCISE 2
  123. 2056 [153]"(null)RESS  (null) WAIT TO GO TO THE DISK MENU
  124. 2058 GETR$:IFR$<>"R"ANDR$<>"M"ANDR$<>"G"ANDR$<>"[210]"ANDR$<>"[199]"ANDR$<>"[205]"THEN2058
  125. 2060 IFR$="R"THENCLR:RESTORE:GOTO100
  126. 2061 IFR$="[210]"THENCLR:RESTORE:GOTO100
  127. 2062 IFR$="G"THENCLR:RESTORE:GOTO2080
  128. 2063 IFR$="[199]"THENCLR:RESTORE:GOTO2080
  129. 2066 PRINT"[147] [210]ETURNING TO THE DISK MENU
  130. 2068 [147]"MENU",8
  131. 2070 [138]
  132. 2072 [128]
  133. 2080 [153]"LOAD (null)OADING VALXERCISE 2"
  134. 2082 [147]"EXERCISE 2",8
  135. 2084 [138]
  136. 2086 [128]
  137. 2099 :
  138. 2100 [143] THE GUTS OF THE UNIT
  139. 2110 [131]"TINY  ","WEAK  ","SMALL  ","SOFT  ","SMALL","TINY"
  140. 2115 [131]"FINISH  ","HURRY  ","PASS  ","RUSH  ","HURRY","RUSH"
  141. 2120 [131]"FROWN  ","SCOWL  ","CRY  ","SMILE  ","FROWN","SCOWL"
  142. 2125 [131]"DEEP  ","BRIEF  ","SHORT  ","KIND  ","BRIEF","SHORT"
  143. 2130 [131]"BETTER  ","DIFFICULT  ","SIMPLE  ","EASY  ","EASY","SIMPLE"
  144. 2135 [131]"EXCEPT  ","ALLOW  ","PERMIT  ","ASSIST  ","ALLOW","PERMIT"
  145. 2140 [131]"PRACTICAL  ","ATTRACTIVE  ","PRETTY  ","SLIM  ","ATTRACTIVE","PRETTY"
  146. 2145 [131]"QUICK  ","GRAND  ","FAST  ","SLIPPERY  ","FAST","QUICK"
  147. 2150 [131]"SECURE  ","ANCIENT  ","OLD  ","AFRAID  ","ANCIENT","OLD"
  148. 2155 [131]"SHINE  ","INCREASE  ","REDUCE  ","GLISTEN  ","GLISTEN","SHINE"
  149. 2160 [131]"FORTUNATE  ","LUCKY  ","SHORT  ","SOFT  ","FORTUNATE","LUCKY"
  150. 2165 [131]"FINISH  ","HURRY  ","PASS  ","COMPLETE  ","COMPLETE","FINISH"
  151. 2170 [131]"FROWNED  ","LOVED  ","LIKED  ","SMILE  ","LIKED","LOVED"
  152. 2175 [131]"REDUCE  ","BRIEF  ","QUICK  ","LOWER  ","LOWER","REDUCE"
  153. 2180 [131]"BETTER  ","WHOLE  ","SIMPLE  ","ENTIRE  ","ENTIRE","WHOLE"
  154. 2185 [131]"FRAGMENT  ","PIECE  ","PERMIT  ","ASSIST  ","FRAGMENT","PIECE"
  155. 2190 [131]"PRACTICAL  ","ATTRACTIVE  ","DISCOVER  ","FIND  ","DISCOVER","FIND"
  156. 2195 [131]"ERROR  ","CORRECT  ","LOCATE  ","MISTAKE  ","ERROR","MISTAKE"
  157. 2200 [131]"FIX  ","BUILD  ","ASSIST  ","REPAIR  ","FIX","REPAIR"
  158. 2205 [131]"PLIANT  ","SUPPLE  ","STIFF  ","RIGID  ","RIGID","STIFF"
  159. 3000 [143] WH CUMBERLAND 93 03 22
  160.